home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 087 / tcommsys.arc / ADDCR.BAS (.txt) next >
Encoding:
GW-BASIC  |  1987-08-01  |  556 b   |  21 lines
  1. 10  'This program adds carriage returns before line feeds.
  2. 30  '
  3. 40  'Written by Larry Jordan, May 17, 1984
  4. 50  '
  5. 100  DEFINT A:CLS:KEY OFF
  6. 110  LOCATE 9,25:INPUT "Add carriage returns to what file ";OLDFILE$
  7. 120  LOCATE 11,25:INPUT "Write conversion to what file ";NEWFILE$
  8. 130  OPEN OLDFILE$ FOR INPUT AS #1
  9. 140  OPEN NEWFILE$ FOR OUTPUT AS #2
  10. 160  WHILE NOT EOF(1)
  11. 170      A1=ASC(INPUT$(1,1))
  12. 180      IF A1<>10 THEN 210
  13. 190        LOCATE 18,48:PRINT CHR$(A1)
  14. 200        A$=CHR$(13)+CHR$(10):PRINT #2,A$;:GOTO 220
  15. 210      A$=CHR$(A1):PRINT #2,A$;
  16. 220      IF A1=26 THEN 900
  17. 230  WEND
  18. 900  CLOSE:LOCATE 20,25:PRINT "Conversion completed....":BEEP
  19. 910  GOTO 100
  20. 990  END
  21.